object DemoForm: TDemoForm Left = 187 Top = 112 Width = 453 Height = 340 Caption = 'Toolbar97 Demo' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object TopDock: TDock97 Left = 0 Top = 0 Width = 445 Height = 79 BoundLines = [blTop] PopupMenu = ToolbarPopupMenu object EditToolbar: TToolbar97 Left = 0 Top = 26 Caption = 'Edit' DefaultDock = TopDock DockPos = 0 DockRow = 1 ParentShowHint = False PopupMenu = ToolbarPopupMenu ShowHint = True TabOrder = 1 object FontButton: TToolbarButton97 Left = 133 Top = 0 Width = 23 Height = 22 Hint = 'Font' Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6840000840000840000840000C6C7C6C6C7C6C6 C7C6840000840000840000840000840000840000C6C7C6C6C7C6C6C7C6C6C7C6 848684840000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C68486848400008400008486 84C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6840000840000C6C7C6C6C7C6C6 C7C6C6C7C6848684840000840000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6848684840000C6C7C6C6C7C6C6C7C6C6C7C6840000840000848684C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C684000084000084000084 0000840000840000840000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6848684840000C6C7C6C6C7C6840000840000848684C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6840000840000C6 C7C6840000840000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6848684840000840000840000848684C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C684000084 0000840000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6848684840000848684C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C684 0000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6} OnClick = FontButtonClick end object EditSep1: TToolbarSep97 Left = 156 Top = 0 end object LeftButton: TToolbarButton97 Left = 162 Top = 0 Width = 23 Height = 22 Hint = 'Align Left' GroupIndex = 1 Down = True Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C600000000000000000000000000000000000000000000 0000000000000000000000000000000000000000C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C600000000000000000000000000000000000000000000 0000000000000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C600000000000000000000000000000000000000000000 0000000000000000000000000000000000000000C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C600000000000000000000000000000000000000000000 0000000000000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C600000000000000000000000000000000000000000000 0000000000000000000000000000000000000000C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C600000000000000000000000000000000000000000000 0000000000000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6} end object CenterButton: TToolbarButton97 Left = 185 Top = 0 Width = 23 Height = 22 Hint = 'Align Center' GroupIndex = 1 Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C600000000000000000000000000000000 0000000000000000000000000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C600000000000000000000000000000000000000000000 0000000000000000000000000000000000000000C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C600000000000000000000000000000000 0000000000000000000000000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C600000000000000000000000000000000000000000000 0000000000000000000000000000000000000000C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C600000000000000000000000000000000 0000000000000000000000000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C600000000000000000000000000000000000000000000 0000000000000000000000000000000000000000C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6} end object RightButton: TToolbarButton97 Left = 208 Top = 0 Width = 23 Height = 22 Hint = 'Align Right' GroupIndex = 1 Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C600000000000000000000 0000000000000000000000000000000000000000C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C600000000000000000000000000000000000000000000 0000000000000000000000000000000000000000C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C600000000000000000000 0000000000000000000000000000000000000000C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C600000000000000000000000000000000000000000000 0000000000000000000000000000000000000000C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C600000000000000000000 0000000000000000000000000000000000000000C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C600000000000000000000000000000000000000000000 0000000000000000000000000000000000000000C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6} end object FontCombo: TComboBox Left = 0 Top = 0 Width = 133 Height = 21 Hint = 'Font' ItemHeight = 13 Items.Strings = ( 'a font list could go here...') TabOrder = 0 Text = 'Arial' end end object SampleToolbar: TToolbar97 Left = 0 Top = 52 Caption = 'Sample' DockPos = 0 DockRow = 2 ParentShowHint = False PopupMenu = ToolbarPopupMenu ShowHint = True TabOrder = 2 object SampleSep1: TToolbarSep97 Left = 108 Top = 0 end object DropdownButton: TToolbarButton97 Left = 114 Top = 0 Width = 68 Height = 22 DropdownMenu = DropPopupMenu Caption = 'Dropdown' end object SampleSep2: TToolbarSep97 Left = 182 Top = 0 end object ToolWinButton: TToolbarButton97 Left = 188 Top = 0 Width = 110 Height = 22 AllowAllUp = True GroupIndex = 2 Caption = 'Tool Window Sample' OnClick = ToolWinButtonClick end object SampleEdit1: TEdit97 Left = 0 Top = 1 Width = 54 Height = 19 TabOrder = 0 Text = 'TEdit97' end object SampleEdit2: TEdit97 Left = 54 Top = 1 Width = 54 Height = 19 TabOrder = 1 Text = 'sample' end end object MainToolbar: TToolbar97 Left = 0 Top = 0 Caption = 'Main' DefaultDock = TopDock DockPos = 0 ParentShowHint = False PopupMenu = ToolbarPopupMenu ShowHint = True TabOrder = 0 object NewButton: TToolbarButton97 Left = 0 Top = 0 Width = 23 Height = 22 Hint = 'New' Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 0000000000000000000000000000000000000000000000000000000000000000 00C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6000000FFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 00C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6000000FFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 00C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6000000FFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 00C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6000000FFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 00C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6000000FFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFF000000000000000000000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFF000000C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6000000FFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFF000000000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 000000000000000000000000000000000000000000000000C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6} end object OpenButton: TToolbarButton97 Left = 23 Top = 0 Width = 23 Height = 22 Hint = 'Open' Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6000000000000 000000000000000000000000000000000000000000000000000000C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C600000000000000868400868400868400868400868400 8684008684008684008684000000C6C7C6C6C7C6C6C7C6C6C7C600000000FFFF 0000000086840086840086840086840086840086840086840086840086840000 00C6C7C6C6C7C6C6C7C6000000FFFFFF00FFFF00000000868400868400868400 8684008684008684008684008684008684000000C6C7C6C6C7C600000000FFFF FFFFFF00FFFF0000000086840086840086840086840086840086840086840086 84008684000000C6C7C6000000FFFFFF00FFFFFFFFFF00FFFF00000000000000 000000000000000000000000000000000000000000000000000000000000FFFF FFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFF000000C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6000000FFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFF FFFF00FFFFFFFFFF000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C600000000FFFF FFFFFF00FFFF000000000000000000000000000000000000000000C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6000000000000000000C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6000000000000000000C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6000000000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6000000C6C7C6C6C7C6C6C7C6000000C6C7C6000000C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6000000000000000000C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6} end object SaveButton: TToolbarButton97 Left = 46 Top = 0 Width = 23 Height = 22 Hint = 'Save' Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000008600008600 0086000086000086000086000086000086000086000086000086000086000086 0000860000860000860000860000860000000000000000000000000000000000 0000000000000000000000000000000000000000000000008600008600000000 008684008684000000000000000000000000000000000000C6C7C6C6C7C60000 0000868400000000860000860000000000868400868400000000000000000000 0000000000000000C6C7C6C6C7C6000000008684000000008600008600000000 008684008684000000000000000000000000000000000000C6C7C6C6C7C60000 0000868400000000860000860000000000868400868400000000000000000000 0000000000000000000000000000000000008684000000008600008600000000 0086840086840086840086840086840086840086840086840086840086840086 8400868400000000860000860000000000868400868400000000000000000000 0000000000000000000000000000008684008684000000008600008600000000 008684000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C60000 00008684000000008600008600000000008684000000C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6000000008684000000008600008600000000 008684000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C60000 00008684000000008600008600000000008684000000C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6000000008684000000008600008600000000 008684000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C60000 00000000000000008600008600000000008684000000C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6000000C6C7C6000000008600008600000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000860000860000860000860000860000860000860000860000 8600008600008600008600008600008600008600008600008600} end object MainSep1: TToolbarSep97 Left = 69 Top = 0 end object PrintButton: TToolbarButton97 Left = 75 Top = 0 Width = 23 Height = 22 Hint = 'Print' Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000008600008600 0086000086000086000086000086000086000086000086000086000086000086 0000860000860000860000860000860000000000000000000000000000000000 0000000000000000000000000000000000008600008600008600008600000000 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6000000C6C7 C600000000860000860000000000000000000000000000000000000000000000 0000000000000000000000000000000000C6C7C6000000008600000000C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C600FFFF00FFFF00FFFFC6C7C6C6C7C60000 00000000000000008600000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C684 8684848684848684C6C7C6C6C7C6000000C6C7C6000000008600000000000000 0000000000000000000000000000000000000000000000000000000000000000 00C6C7C6C6C7C6000000000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6000000C6C7C6000000C6C7C6000000008600000000 000000000000000000000000000000000000000000000000000000C6C7C60000 00C6C7C6000000000000008600008600000000FFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFF000000C6C7C6000000C6C7C6000000008600008600 008600000000FFFFFF000000000000000000000000000000FFFFFF0000000000 00000000000000008600008600008600008600000000FFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000008600008600008600008600008600 008600008600000000FFFFFF000000000000000000000000000000FFFFFF0000 00008600008600008600008600008600008600008600000000FFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000008600008600008600008600 0086000086000086000000000000000000000000000000000000000000000000 0000000000860000860000860000860000860000860000860000860000860000 8600008600008600008600008600008600008600008600008600} end object PrintPreviewButton: TToolbarButton97 Left = 98 Top = 0 Width = 23 Height = 22 Hint = 'Print Preview' Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000008600008600 0086000086000086000086000086000086000086000086000086000086000086 0000860000860000860000000000000000000000000000000000000000000000 0000000000000000000000000000008600008600000000000000000000FFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000086 00000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFF000000000000000000000000848684000000000000008600000000FFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000848684C6C7C6C6C7C68486840000 00848684008600008600000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000084 8684C6C7C6C6C7C6FFFF00848684848684000000008600008600000000FFFFFF FFFFFFFFFFFFFFFFFFFFFFFF000000C6C7C6C6C7C6C6C7C6C6C7C6848684C6C7 C6000000008600008600000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C6 C7C6FFFF00C6C7C6C6C7C6848684C6C7C6000000008600008600000000FFFFFF FFFFFFFFFFFFFFFFFFFFFFFF000000848684FFFF00FFFF00C6C7C68486848486 84000000008600008600000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00 0000848684C6C7C6C6C7C6848684000000008600008600008600000000FFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000086 00008600008600008600000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFF000000008600008600008600008600000000FFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000086 00008600008600008600000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFF000000C6C7C6000000008600008600008600008600008600000000FFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000086000086000086 0000860000860000860000000000000000000000000000000000000000000000 0000000000008600008600008600008600008600008600008600} end object MainSep2: TToolbarSep97 Left = 121 Top = 0 end object CutButton: TToolbarButton97 Left = 127 Top = 0 Width = 23 Height = 22 Hint = 'Cut' Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6840000840000C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6840000C6C7C6C6C7C6840000C6C7C6C6C7C6840000840000C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6840000C6C7C6C6C7C6840000C6 C7C6840000C6C7C6C6C7C6840000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6840000C6C7C6C6C7C6840000C6C7C6840000C6C7C6C6C7C6840000C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6840000840000840000C6 C7C6840000C6C7C6C6C7C6840000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6840000C6C7C6840000840000840000C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C684000000 0000840000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C600000000 0000000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6000000C6C7C6000000C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6000000000000C6 C7C6000000000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6000000C6C7C6C6C7C6C6C7C6000000C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6000000C6C7C6C6 C7C6C6C7C6000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6000000C6C7C6C6C7C6C6C7C6000000C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6} end object CopyButton: TToolbarButton97 Left = 150 Top = 0 Width = 23 Height = 22 Hint = 'Copy' Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C68400008400008400008400008400008400008400 00840000840000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6840000FF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6840000FFFFFF0000000000000000000000000000 00FFFFFF840000C6C7C6000000000000000000000000000000000000840000FF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000C6C7C6000000FFFFFF FFFFFFFFFFFFFFFFFFFFFFFF840000FFFFFF0000000000000000000000000000 00FFFFFF840000C6C7C6000000FFFFFF000000000000000000000000840000FF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF840000C6C7C6000000FFFFFF FFFFFFFFFFFFFFFFFFFFFFFF840000FFFFFF000000000000FFFFFF8400008400 00840000840000C6C7C6000000FFFFFF000000000000000000000000840000FF FFFFFFFFFFFFFFFFFFFFFF840000FFFFFF840000C6C7C6C6C7C6000000FFFFFF FFFFFFFFFFFFFFFFFFFFFFFF840000FFFFFFFFFFFFFFFFFFFFFFFF8400008400 00C6C7C6C6C7C6C6C7C6000000FFFFFF000000000000FFFFFF00000084000084 0000840000840000840000840000C6C7C6C6C7C6C6C7C6C6C7C6000000FFFFFF FFFFFFFFFFFFFFFFFF000000FFFFFF000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6000000000000 000000000000000000000000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6} end object PasteButton: TToolbarButton97 Left = 173 Top = 0 Width = 23 Height = 22 Hint = 'Paste' Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000008600008600 0086000086000086000086000086000086000086000086000086000086000086 0000860000860000860000860000860000860000860000860000860084000084 0000840000840000840000840000840000840000840000840000008600000000 000000000000000000000000840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFF840000000000848684008684848684008684848684840000FF FFFF840000840000840000840000840000840000FFFFFF840000000000008684 848684008684848684008684840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFF840000000000848684008684848684008684848684840000FF FFFF840000840000840000FFFFFF840000840000840000840000000000008684 848684008684848684008684840000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8400 00FFFFFF840000008600000000848684008684848684008684848684840000FF FFFFFFFFFFFFFFFFFFFFFFFFFFFF840000840000008600008600000000008684 8486840086848486840086848400008400008400008400008400008400008400 0000000000860000860000000084868400868484868400868484868400868484 8684008684848684008684848684008684000000008600008600000000008684 8486840000000000000000000000000000000000000000000000008486848486 84000000008600008600000000848684848684000000C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6000000848684008684000000008600008600000000008684 84868400868400000000FFFF00000000000000FFFF0000008486840086848486 8400000000860000860000860000000000000000000000000000000000FFFF00 FFFF000000000000000000000000000000008600008600008600008600008600 0086000086000086000000000000000000000000000086000086000086000086 0000860000860000860000860000860000860000860000860000860000860000 8600008600008600008600008600008600008600008600008600} end object MainSep3: TToolbarSep97 Left = 196 Top = 0 end object UndoButton: TToolbarButton97 Left = 202 Top = 0 Width = 34 Height = 22 Hint = 'Undo' DropdownCombo = True DropdownMenu = DropPopupMenu Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6848684840000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 840000840000840000840000840000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C68400 00848684C6C7C6C6C7C6C6C7C6C6C7C6840000840000840000840000C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6840000C6C7C6C6C7C6C6C7C6C6C7C6 840000840000840000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6840000C6C7C6C6C7C6C6C7C6C6C7C6840000840000C6C7C6840000C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6840000C6C7C6C6C7C6C6C7C6C6C7C6 840000C6C7C6C6C7C6C6C7C6840000848684C6C7C6C6C7C6C6C7C6C6C7C68400 00848684C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C684 8684840000840000840000840000848684C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6} end object RedoButton: TToolbarButton97 Left = 236 Top = 0 Width = 34 Height = 22 Hint = 'Redo' DropdownCombo = True DropdownMenu = DropPopupMenu Glyph.Data = { 36030000424D3603000000000000360000002800000010000000100000000100 1800000000000003000000000000000000000000000000000000C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6840000848684C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 848684840000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C68400008400008400008400 00840000C6C7C6C6C7C6C6C7C6C6C7C6840000C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6840000840000840000840000C6C7C6C6C7C6C6C7C6C6C7C6 840000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C68400008400 00840000C6C7C6C6C7C6C6C7C6C6C7C6840000C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6840000C6C7C6840000840000C6C7C6C6C7C6C6C7C6C6C7C6 848684840000C6C7C6C6C7C6C6C7C6C6C7C6848684840000C6C7C6C6C7C6C6C7 C6840000C6C7C6C6C7C6C6C7C6C6C7C6C6C7C684868484000084000084000084 0000848684C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6 C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7 C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6 C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6C6C7C6} end end end object LeftDock: TDock97 Left = 0 Top = 79 Width = 9 Height = 186 Position = dpLeft end object Memo: TMemo Left = 9 Top = 79 Width = 427 Height = 186 Align = alClient Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Lines.Strings = ( 'This is a demonstration of the toolbars, so most of the buttons ' + 'don'#39't do anything when clicked. Please see the file "Toolbar97 D' + 'ocumentation.htm" for information on using the Toolbar97 compone' + 'nts.' '' 'Some things to try:' '� You can drag and resize the toolbars. Dock them to any side of' + ' the form or leave them floating. Notice that if you dock the Ed' + 'it toolbar to the left or right side of the form, a button is us' + 'ed in place of the combo box (the source code shows how this was' + ' set up).' '� Multiple toolbars can lined up side-by-side or in rows.' '� Click the right button on a toolbar or dock to see its PopupMe' + 'nu.') ParentFont = False ScrollBars = ssVertical TabOrder = 0 WantTabs = True WordWrap = False end object RightDock: TDock97 Left = 436 Top = 79 Width = 9 Height = 186 Position = dpRight end object BottomDock: TDock97 Left = 0 Top = 265 Width = 445 Height = 9 PopupMenu = ToolbarPopupMenu Position = dpBottom end object StatusBar: TStatusBar Left = 0 Top = 274 Width = 445 Height = 20 Panels = < item Width = 128 end> SimplePanel = False end object SampleToolWindow: TToolWindow97 Left = 24 Top = 104 Caption = 'Tool Window' ClientAreaHeight = 68 ClientAreaWidth = 185 DockPos = 0 MinClientHeight = 68 MinClientWidth = 128 PopupMenu = ToolbarPopupMenu TabOrder = 6 Visible = False OnVisibleChanged = SampleToolWindowVisibleChanged object ListBox: TListBox Left = 0 Top = 0 Width = 104 Height = 68 Align = alClient ItemHeight = 13 TabOrder = 0 OnClick = ListBoxClick end object Panel1: TPanel Left = 104 Top = 0 Width = 81 Height = 68 Align = alRight BevelOuter = bvNone TabOrder = 1 object AddButton: TButton Left = 8 Top = 8 Width = 65 Height = 23 Caption = '&Add' TabOrder = 0 OnClick = AddButtonClick end object DeleteButton: TButton Left = 8 Top = 38 Width = 65 Height = 23 Caption = '&Delete' Enabled = False TabOrder = 1 OnClick = DeleteButtonClick end end end object ToolbarPopupMenu: TPopupMenu OnPopup = ToolbarPopupMenuPopup Left = 384 Top = 64 object TPMain: TMenuItem Caption = '&Main' Checked = True ShortCut = 0 OnClick = VTMainClick end object TPEdit: TMenuItem Caption = '&Edit' Checked = True ShortCut = 0 OnClick = VTEditClick end object TPSample: TMenuItem Caption = '&Sample' Checked = True ShortCut = 0 OnClick = VTSampleClick end end object MainMenu: TMainMenu Left = 352 Top = 64 object FMenu: TMenuItem Caption = '&File' ShortCut = 0 object FExit: TMenuItem Caption = 'E&xit' ShortCut = 0 OnClick = FExitClick end end object VMenu: TMenuItem Caption = '&View' ShortCut = 0 OnClick = VMenuClick object VToolbars: TMenuItem Caption = '&Toolbars' ShortCut = 0 object VTMain: TMenuItem Caption = '&Main' ShortCut = 0 OnClick = VTMainClick end object VTEdit: TMenuItem Caption = '&Edit' ShortCut = 0 OnClick = VTEditClick end object VTSample: TMenuItem Caption = '&Sample' ShortCut = 0 OnClick = VTSampleClick end end object VStatusBar: TMenuItem Caption = '&Status Bar' ShortCut = 0 OnClick = VStatusBarClick end end end object DropPopupMenu: TPopupMenu Left = 320 Top = 64 object Sample1: TMenuItem Caption = 'Sample' ShortCut = 0 end object dropdown1: TMenuItem Caption = 'drop-down' ShortCut = 0 end object menu1: TMenuItem Caption = 'menu' ShortCut = 0 end end end